GGclassQl.asp 忠网网站广告管理系统 ZonGG V1.3 - ASP源码程序

www.gusucode.com > 忠网网站广告管理系统 ZonGG V1.3 > 忠网网站广告管理系统 ZonGG V1.3\code\GGclassQl.asp

    <!-- #INCLUDE FILE="login.asp" -->

<head>
<meta http-equiv="Content-Language" content="zh-cn">
</head>

<%
	'///*********************************
	'   广告位分类清理程序
	'********************************///
	
	Call AdminQx(3,trim(request("cid")))

	action=trim(request("action"))
	Dim dqw
	
	dqw="清理分类 "&Ggflm(trim(request("cid")))
	Call Heads_GGclass(dqw)
	
	if not isnumeric(trim(request("cid"))) then
	response.write "错误：分类ID无效！"
	response.end
	else
	cid = trim(request("cid"))
	end if
	  
 

		if action="yes" then '' 开始执行清理程序
		
			if trim(request("sc"))="yes" then  '' 如果是删除广告位分类清理		
		
		    conn.execute("delete from Class where Cid="&cid)
		    conn.execute("update Place set cid=0 where Cid="&cid)
			
			response.write "<BR><BR>当前广告位分类被成功删除，所有广告位被置位“备用广告位”<BR><BR>[<a href='GGtiao.asp?'>返回列表</a>] "
			
			end if
			
		 
	   else '' 开始清理界面
	   
 
		
		%><div align="center">
			<table width="580" id="table1"  border=1 cellspacing=0 cellpadding=2 bordercolorlight=#C0C0C0 bordercolordark=#FFFFFF bgcolor=#ffffff>
			<form method="POST" action="?action=yes&cid=<%=cid%>">
			<tr>
				<td  class="td1" height="30"><input type="radio" value="yes" name="sc">删除广告位分类，保留所含广告位</td>
			</tr>
			<tr>
				<td>	目前仅提供一种分类清理模式，对于其下广告位的清理，可直接在各广告位清理区中进行
					</td>
			</tr>
			
			
			<tr>
				<td height="30">
				<p align="center"><input type="submit" value="执行清理" name="B1"></td>
			</tr>
			<tr>
				<td align="center">　</td>
			</tr></form>
		</table>
		</div>
		
<%end if%>